#! /usr/bin/perl

use diagnostics;
use strict;

my $file =
'/2009-06-28_AF1__[http_www.elianepires.com.br_loja_fotos_foto145.exe.1.exe]';
unless ($file) { return; }
$file =~ /\[(.*)\]/;
print "$1\n";
$file = $1;
$file =~ s/http_/http:\/\//;
print "$file\n";
$file =~ s/_/\//g;
print "$file\n";
